perm filename PLOTIT.F4[1,MUS] blob sn#078081 filedate 1973-12-14 generic text, type T, neo UTF8
00100		DIMENSION N(3,341),M(1023)
00200		EQUIVALENCE (M,N)
00300		CALL PLOTS(K)
00400	1	READ(1)K,(M(J),J=1,K)
00500		DO 3 JJ=1,K,3
00600	3	CALL PLOT(M(JJ),M(JJ+1),M(JJ+2))
00700		IF(K.EQ.1023)GO TO 1
00800		END